J-Mac Electronics & Home Comics/J-Mac Electronics & Home Comics.iso/mac/J-MAC/G13F/G13_OBIH.Dxr/00068.ls

Text File | 1998-01-22 | 4.0 KB | 213 lines

global i, gno, jumplistkeyg, jumplistkeyz

on startMovie
  set mycursor to [1, 2]
  repeat with i = 11 to 18
    set the cursor of sprite i to mycursor
  end repeat
  set jumplistkeyg to ["G1", "G2", "G3"]
  set jumplistkeyz to ["Z1", "Z2", "Z3"]
  set volset to the soundLevel
  if the soundEnabled = 0 then
    set the soundEnabled to 1
  end if
end

on donextg
  if (gno + 1) = 4 then
    set gno to 0
  end if
  go(getAt(jumplistkeyg, gno + 1))
end

on dobackg
  if (gno - 1) = 0 then
    set gno to 4
  end if
  go(getAt(jumplistkeyg, gno - 1))
end

on donextz
  if (gno + 1) = 4 then
    set gno to 0
  end if
  go(getAt(jumplistkeyz, gno + 1))
end

on dobackz
  if (gno - 1) = 0 then
    set gno to 4
  end if
  go(getAt(jumplistkeyz, gno - 1))
end

on doexit
  sound stop 1
  go("M1", "@::JMACMENU")
end

on crtopen
  puppetSprite(6, 1)
  repeat while the stillDown
    set the memberNum of sprite 6 to 12
    updateStage()
  end repeat
  set the memberNum of sprite 6 to 11
  updateStage()
  puppetSprite(6, 0)
end

on crtclose
  puppetSprite(7, 1)
  repeat while the stillDown
    set the memberNum of sprite 7 to 14
    updateStage()
  end repeat
  set the memberNum of sprite 7 to 13
  updateStage()
  puppetSprite(7, 0)
end

on crtnext
  puppetSprite(20, 1)
  repeat while the stillDown
    set the memberNum of sprite 20 to 20
    updateStage()
  end repeat
  set the memberNum of sprite 20 to 19
  updateStage()
  puppetSprite(20, 0)
  puppetSprite(1, 0)
end

on crtback
  puppetSprite(21, 1)
  repeat while the stillDown
    set the memberNum of sprite 21 to 22
    updateStage()
  end repeat
  set the memberNum of sprite 21 to 21
  updateStage()
  puppetSprite(21, 0)
  puppetSprite(1, 0)
end

on crtnextz1
  puppetSprite(20, 1)
  repeat while the stillDown
    set the memberNum of sprite 20 to 33
    updateStage()
  end repeat
  set the memberNum of sprite 20 to 32
  updateStage()
  puppetSprite(20, 0)
  puppetSprite(1, 0)
end

on crtbackz1
  puppetSprite(21, 1)
  repeat while the stillDown
    set the memberNum of sprite 21 to 35
    updateStage()
  end repeat
  set the memberNum of sprite 21 to 34
  updateStage()
  puppetSprite(21, 0)
  puppetSprite(1, 0)
end

on crtnextz2
  puppetSprite(20, 1)
  repeat while the stillDown
    set the memberNum of sprite 20 to 51
    updateStage()
  end repeat
  set the memberNum of sprite 20 to 50
  updateStage()
  puppetSprite(20, 0)
  puppetSprite(1, 0)
end

on crtbackz2
  puppetSprite(21, 1)
  repeat while the stillDown
    set the memberNum of sprite 21 to 53
    updateStage()
  end repeat
  set the memberNum of sprite 21 to 52
  updateStage()
  puppetSprite(21, 0)
  puppetSprite(1, 0)
end

on crtzoomin
  puppetSprite(23, 1)
  repeat while the stillDown
    set the memberNum of sprite 23 to 26
    updateStage()
  end repeat
  set the memberNum of sprite 23 to 25
  updateStage()
  puppetSprite(23, 0)
end

on crtzoomout1
  puppetSprite(23, 1)
  repeat while the stillDown
    set the memberNum of sprite 23 to 39
    updateStage()
  end repeat
  set the memberNum of sprite 23 to 38
  updateStage()
  puppetSprite(23, 0)
  puppetSprite(1, 0)
end

on crtzoomout2
  puppetSprite(23, 1)
  repeat while the stillDown
    set the memberNum of sprite 23 to 57
    updateStage()
  end repeat
  set the memberNum of sprite 23 to 56
  updateStage()
  puppetSprite(23, 0)
  puppetSprite(1, 0)
end

on crtexit
  puppetSprite(22, 1)
  repeat while the stillDown
    set the memberNum of sprite 22 to 24
    updateStage()
  end repeat
  set the memberNum of sprite 22 to 23
  updateStage()
  puppetSprite(22, 0)
  puppetSprite(1, 0)
end

on crtexit1
  puppetSprite(22, 1)
  repeat while the stillDown
    set the memberNum of sprite 22 to 37
    updateStage()
  end repeat
  set the memberNum of sprite 22 to 36
  updateStage()
  puppetSprite(22, 0)
  puppetSprite(1, 0)
end

on crtexit2
  puppetSprite(22, 1)
  repeat while the stillDown
    set the memberNum of sprite 22 to 55
    updateStage()
  end repeat
  set the memberNum of sprite 22 to 54
  updateStage()
  puppetSprite(22, 0)
  puppetSprite(1, 0)
end